home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 4
/
United Public Domain Gold 4.iso
/
fredfish
/
ff.0013.dms
/
ff.0013.adf
/
terminal3.bas
< prev
next >
Wrap
BASIC Source File
|
1986-02-21
|
477b
|
14 lines
100 rem Term3.bas by K.L. Colclasure
110 rem Written 14 Nov 85
115 rem Set baud rate in Preferences
120 rem 110 or 300 baud only!
200 open "o",#1,"ser:": print #1, " ": close #1
300 get key$: if key$ = "" then 320
310 gosub 400
320 gosub 450: goto 300
400 key% = asc(key$): poke_w &hdff030,key%+256: return
450 char% = peek_w(&hdff018)
460 if (char% and 16384) = 0 then return
470 char$ = chr$(char% and 127): poke &hdff09c,8
480 print char$;: return